home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilstem / util2 / statline.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-06-20  |  4.3 KB  |  76 lines
  1. 100  REM -- BASIC PROGRAM TO CREATE STATLINE.COM
  2. 101  REM -- WRITTEN BY JOHN SOCHA
  3. 102  REM -- FROM PC MAGAZINE ISSUE JULY 1986, VOLUME 5, NUMBER 13
  4. 103  REM -- TYPED IN BY RON HOENING
  5. 104  REM -- INDICATES NumLock, CapsLock, AND SrollLock ON THE SCREEN
  6. 110  OPEN "STATLINE.COM" AS #1 LEN = 1
  7. 120  FIELD #1,1 AS A$
  8. 130  CHECKSUM = 0
  9. 140  FOR I% = 1 TO 52
  10. 150     LINESUM% = 0
  11. 160     FOR J% = 1 TO 8
  12. 170        READ BYTE%
  13. 180        CHECKSUM = CHECKSUM + BYTE%
  14. 190        LINESUM% = LINESUM% + BYTE%
  15. 200        IF (BYTE% < 256) THEN LSET A$ = CHR$(BYTE%)
  16. 210        PUT #1
  17. 220     NEXT J%
  18. 230     READ LINECHECK%
  19. 240     IF LINECHECK% <> LINESUM% THEN PRINT " Error in Line";280 + 10 * I%
  20. 250  NEXT I%
  21. 260  CLOSE
  22. 270  IF CHECKSUM = 37052 THEN PRINT "SUCCESSFUL COMPLETION!" : END
  23. 280  PRINT "COM FILE IS NOT VALID!" : END
  24. 290  DATA    233,    69,     1,    83,   116,    97,   116,   108,    823
  25. 300  DATA    105,   110,   101,    44,    32,    98,   121,    32,    643
  26. 310  DATA     74,   111,   104,   110,    32,    83,   111,    99,    724
  27. 320  DATA    104,    97,    13,    10,    36,     0,     0,     1,    261
  28. 330  DATA    244,    15,    32,   244,    15,    18,   240,    15,    823
  29. 340  DATA     32,   240,    15,    35,   236,    15,    32,   236,    841
  30. 350  DATA     15,    24,     0,     0,     0,     0,     0,     0,     39
  31. 360  DATA      0,     0,   156,    46,   255,    30,    50,     1,    538
  32. 370  DATA     46,   128,    62,    31,     1,     1,   117,     3,    389
  33. 380  DATA    232,     1,     0,   207,    80,    83,    81,    82,    766
  34. 390  DATA     86,    87,    30,     6,   184,    64,     0,   142,    599
  35. 400  DATA    216,   139,    22,    99,     0,   184,     0,   184,    844
  36. 410  DATA    129,   250,   208,     3,   115,     3,   184,     0,    892
  37. 420  DATA    176,   142,   192,   131,   194,     6,   138,    30,   1009
  38. 430  DATA     23,     0,   177,     4,   210,   235,   140,   200,    989
  39. 440  DATA    142,   216,    58,    30,    29,     1,   116,    46,    638
  40. 450  DATA    136,    30,    29,     1,   190,    32,     1,   185,    604
  41. 460  DATA      3,     0,    86,   208,   235,   115,     3,   131,    781
  42. 470  DATA    198,     3,   139,    60,   138,    68,     2,    81,    689
  43. 480  DATA    138,   200,   236,   168,     8,   117,   251,   236,   1354
  44. 490  DATA    168,     8,   116,   251,   138,   193,   170,    89,   1133
  45. 500  DATA     94,   131,   198,     6,   226,   220,     7,    31,    913
  46. 510  DATA     95,    94,    90,    89,    91,    88,   195,    10,    752
  47. 520  DATA    228,   116,     5,    46,   255,    46,    54,     1,    751
  48. 530  DATA     46,   162,    30,     1,    46,   136,    38,    31,    490
  49. 540  DATA      1,   156,    46,   255,    30,    54,     1,   232,    775
  50. 550  DATA     22,     0,    46,   198,     6,    29,     1,     0,    302
  51. 560  DATA    232,   113,   255,   207,     4,    26,     5,     3,    845
  52. 570  DATA      6,    26,     7,    26,     0,     6,    26,     0,     97
  53. 580  DATA     80,    81,    82,    86,    30,   140,   200,   142,    841
  54. 590  DATA    216,   198,     6,    31,     1,     0,   160,    30,    642
  55. 600  DATA      1,    60,     1,   126,    69,    60,     3,   126,    446
  56. 610  DATA      4,    60,     7,   117,    61,   198,     6,    31,    484
  57. 620  DATA      1,     1,   190,   220,     1,   186,   180,     3,    782
  58. 630  DATA     30,   184,    64,     0,   142,   216,   160,    16,    812
  59. 640  DATA      0,    36,    48,    60,    48,    31,   116,    21,    360
  60. 650  DATA    186,   212,     3,    30,   184,     0,   240,   142,    997
  61. 660  DATA    216,   129,    62,   234,   255,    67,    79,    31,   1073
  62. 670  DATA    116,     3,   190,   229,     1,   252,   172,    10,    973
  63. 680  DATA    192,   116,     7,   238,    66,   172,   238,    74,   1103
  64. 690  DATA    235,   244,    31,    94,    90,    89,    88,   195,   1066
  65. 700  DATA    141,    22,     3,     1,   180,     9,   205,    33,    594
  66. 710  DATA    180,    15,   205,    16,   162,    30,     1,   232,    841
  67. 720  DATA    142,   255,   232,   239,   254,   184,     0,     0,   1306
  68. 730  DATA    142,   216,   250,   161,    36,     0,    46,   163,   1014
  69. 740  DATA     50,     1,   161,    38,     0,    46,   163,    52,    511
  70. 750  DATA      1,   199,     6,    36,     0,    58,     1,   140,    441
  71. 760  DATA     14,    38,     0,   161,    64,     0,    46,   163,    486
  72. 770  DATA     54,     1,   161,    66,     0,    46,   163,    56,    547
  73. 780  DATA      1,   199,     6,    64,     0,   183,     1,   140,    594
  74. 790  DATA     14,    66,     0,   251,   186,    72,     2,   205,    796
  75. 800  DATA     39,     0,     0,     0,     0,     0,     0,     0,     39
  76.